home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 2: Applications / Linux Cubed Series 2 - Applications.iso / editors / emacs / xemacs / xemacs-1.006 / xemacs-1 / lib / xemacs-19.13 / lisp / term / tty-win.el < prev    next >
Encoding:
Text File  |  1995-08-04  |  1.3 KB  |  38 lines
  1. ;;; tty-win.el --- runtime initialization for tty's if initial window system
  2. ;; Copyright (C) 1994 Free Software Foundation, Inc.
  3.  
  4. ;;; This file is part of XEmacs.
  5. ;;;
  6. ;;; XEmacs is free software; you can redistribute it and/or modify
  7. ;;; it under the terms of the GNU General Public License as published by
  8. ;;; the Free Software Foundation; either version 2, or (at your option)
  9. ;;; any later version.
  10. ;;;
  11. ;;; XEmacs is distributed in the hope that it will be useful,
  12. ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  13. ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14. ;;; GNU General Public License for more details.
  15. ;;;
  16. ;;; You should have received a copy of the GNU General Public License
  17. ;;; along with XEmacs; see the file COPYING.  If not, write to
  18. ;;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
  19.  
  20. (require 'pre-tty-win)
  21.  
  22. ;; #### This is all that should really be in the middle but we can't
  23. ;; do that until we have device-local variables.
  24. ;; (make-tty-device nil nil)
  25.  
  26. ;; #### make-device needs to be doing the initialization of
  27. ;; function-key-map.
  28.  
  29. (let (newdevice
  30.       (function-key-map (make-sparse-keymap)))
  31.   (setq newdevice (make-tty-device nil nil))
  32.   (load "term/vt100.el" nil t)
  33.   (set-device-function-key-map newdevice function-key-map))
  34.  
  35. (require 'post-tty-win)
  36.  
  37. ;;; tty-win.el ends here
  38.